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GETCMD 16-.EP=1984 4:13 VAX/VMS Macro v04-00 Pp 1 MA! 
V04=000 gre ee rt b8s OSiteioe Vetmves Macro NOE =00, mas V04: 
“TITLE GETCMD 
- IDENT 'V04-000' 


REAR EREEEREREREAEEEAEREAEAEEARAAEAEARAAAAEAAARAAAAAAAETEAAEAAARERAAAAAAAAAEEEe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** ® 
*® ® 
:* ® 
** ® 
** ® 
:e SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:e IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie SIO THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR \ANY. OTHER = 
ye ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY + 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
**® ® 
;® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;*# AND SHOULD NOT . 
*® ® 
** ® 
:* a 
*® ® 
*® ® 
** ® 
** ® 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: 
SUMSLP utility 
Environment: 
; User mode 
; Author: 
: R. Newland 18-Apr-1979 
; Modified By: 


v03-003 MTROOO1 Mike Rhodes 27-Jul-1983 
Correct processing ie the /LISTING and /SuTPUT qualifiers. 


v03-002 S679 Benn Schreiber 16-JUN-1982 
Use new CLI interface routines 


vO3-001 BLS0158 Benn Schreiber 16-Mar-1982 
Remove SCLIDEFQUALEDIT, get values globally. 
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or Ae Macro v04 Rake 
RCIGE TCMD D.MAR; 


Define SUMSLP general values 
Pescr eter offsets 

FAB block definitions 
SUMSLP flag definitions 


E 12 ] 
¥04-000 DATA SSEp=198e 08:58:28 Lsumvsacieeienpomans1 =| 8" 


-SBTTL DATA 
0000 és SECT SUMSRO_DATA, NOEXE, NOWRT, LONG 
5 INPUT_NAME : 
54 55 50 4E 49 89" 8 eASCIC /INPUT/ 
67 OUTPUT_NAME: 
54 55 50 54 55 4F 80" 8 68 “ ,ASCIC /OUTPUT/ 
D 9 LISTING_NAME: 
47 GE 49 54 53 49 4C 90" oD $3 “.ASCIC /LISTING/ 
a 71 UPDATE _NAME : 
45 54 41 44 50 55 90" 1 72 -ASCIC /UPDATE/ 
01¢ 73 HEADER_NAME : 
52 45 44 41 45 48 90" gic 74 eASCIC /HEADER/ 
0 75 LINE_NAME : 
45 GE 49 4C 26 09" 99 76 -ASCIC /SLINE/ 
0029 77; 
0029 78 ; 
0029 9 3 
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v04=000 GETCMD eT a HONG eta TT Ae TT aa - «@ 
.SBTTL GETCMD 


Subroutine to get fonpane Line information from the CLI and 
set up control variables appropriately 


Calling sequence: 

BSB SUMS$GETCMD 
Inputs: 

None 
Implicit inputs 

The CLI data base 
Outputs: 


XXX 


OOODOO0O00 0000000009 C000 GD CD 0D0D 
WN SO OONAUES WN OVOONOUS wr 


Implicit outputs 
None 

Side effects: 
None 
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1 
1 
1 
10 
104 
105 
106 
107 
108 
109 
iy 
0000 3 11 -PSECT SUMSCODE, EXE, NOWRT 
114 SUMSGETCMD: : 
0c 115 PUSHR #*M<R2,R3> 
, geet 138 CLRQ (SP) :Create a descriptor 
53. sSE 4 0 11 MOVL SP,R3 
03 a3 02 9 007 118 MOVE  #DSCSK_CLASS_D.DSCS$B_CLASS(R3) 
si : Y 3; Command Line not printed anywhere, so this code not used 
008 (1 : : MOVAB W*SUM$GQ_CMDLINE,R2 sInitialize output descriptor 
00B 123; MOVB #DSC$K_CCASS_D.DSC$B_CLASS(R2) as dynamic 
+3 126 ; MOVAB LINE E,RO sltem to get 
: 53 BSBW SUM_QVALUE Get command Line 
: 5 3; end of unused code | 
50 dl F 9 1 § : MOVAB W*INPUT_NAME,RO :Get input file spec 
00 1 131 BSBW " VALUE | 
0087" CF FB 18 : § CALLS @# -Q*INPUT_FILE 
50 0006'CF 43 1 134 MOVAB W*OUTPUT_NAME,RO Has an output file been | 
135 BSBW S MPRESENT srequested? By default one i 
00000000 ' 8F b 1 6 CMPL RO, #CLIS_NEGATED :produced. If not, then continue | 
3 A 1 BEQL 10$ parsing the command Line. 


| 
| 


1M 


GETCHD "SSEP=158¢ 08:38:28 USUavsacleevempenanss =| #8" dy fr 


a 01 8 3 BISB2 #SSL_M gure apunset FLAGS gindicate output file + ~ we ye 
ay 3 1 MOVAB ee sGet the file spec (if any) 
088 14 BSBW syhay suse the defaults from the 
OOCO' CF FB i 1 CALLS # o*out but FILE Save the spec for later. 
50 000D'CF 3 4 128 10$ MOVAB W*“*LISTING_NAME,RO sHas a Listing been requested? 
004 4 144 BSBW SUM_PRESERT ilf not, chen ont inue parsing 
14 5 4 145 BLBC & $ sthe command 
a 04 8 4 148 BISB2 #SSL_m Hoon Mt ar a FLAGS iIndicate visting” #4 the requested. 
5 OOD 'CF 3 5 14 MOVAB WPLTSTTNG Get the file spec (if any) or 
0047 5 123 BSBW el suse the defaults jean the NAM. 
ooco'cF O00 FB pea 133 CALLS @# Ste FILE :Save the spec for later. 
50 OO1C'CF 43 OSF 151 208: MOVAB W*HEADER_NAME,RO sTest if /HEADER 
08°80 &9 goR? 188 gree abrnosee 
007E 30 O06A 134 BSBW -HEAD_QUAL : process /HEADER 
50 0015°CF 9 8095 136 40$: MOVAB W*UPDATE_NAME,RO sTest if /UPDATE 
ee a aa 
53 odd 0078 159 PUSHL R3- : Pass dynamic descriptor down 
0104°CF 01 FB BOF 199 CALLS) #1,W*UPDA_QUAL 3; process /UPDATE 
BR ee 166 : Free dynamic string that we allocated 
53 oD Soe 164 60$: PUSHL R3 sStack descriptor address 
00000000'GF 01 0081 165 CALLS #1,G*STRSFREE1_DX ; 
SE 08 cO 0088 £166 ADDL2 #8,SP :Clear descriptor from stack 
0c 008B 167 
05 008D 168 


POPR #*M<R2,R3> 
RSB 
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S 170; 
: Vf) ; Test if qualifier present 
; 178 3 Inputs: 
8 2 1? 3 RO Pointer to ASCIC string name of entity 
5 ; 17% ; Outputs: 
; 179 3 RO Return status from CLISPRESENT 
6 = 18 SUM_PRESENT: 
01 AO OF ; 1 ¢ PUSHAB 1(RO) ;Create descriptor on the stack 
7E 60 QA 94 18 MOVZBL (RO),-(SP) pact 
6—E 9F 0094 184 PUSHAB (SP) sStack descriptor address 
Q00000000'GF 1 Fe 096 §=185 CALL #1,G*CLISPRESENT :Call CLI routine to test presence 
SE 08 c¢ 09D 136 ADDL #8,SP :Clear descriptor from stack 
05 BAY +t RSB ;Return with status in RO 
QOA1 189 ; Get qualifier value 
QOA1 190; 
QOA1 191 ; Inputs: 
00A1 138 3 
QOA1 193 ; RO Pointer to ASCIC string name of entity 
00A1 194 ; R2 Pointer to output descriptor 
QOA1 195; 
00A1 196 ; Outputs: 
QOA1 197; 
QO0A1 198 ; RO Return status from CLISGET_VALUE 
QOA1 199 ; descriptor has value 
Q0A1 00 ; 
00A1 201 SUM_VALUE: 
01 AO 9F QOAI 8 PUSHAB 1(RO) :Create descriptor on the stack 
7E 60 9A OOA4 0 MOVZBL (RO),-(SP) 
52 DD OOA7 04 USHL R2 ;Stack address of output descriptor 
04 AE 9F QOA9 05 PUSHAB 4(SP) ;_and address of name descriptor | 
00000000 ' GF oe FB OOA BS CALLS SG °E CLISCET VALUE :Call CLI to get value for qualifier 
mm oe boez be apete #8,SP sClear stack 
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~SBTTL PARSE ACTIONS ROUTINES 


These routines are called when a parameter is present t 
the file name descriptor and fill the appropriate FAB b 


° extract 
lock 


NPUT FILE: 
HOVAB W*SURSAK. INPUTFAB, R2 =; Get address of input FAB 


“M<R2,R3,R4,R5> 


dutPur FILE: | 
ROvAs W*SUAB AK OUTPUFAB, R2 =; Get address of output FAB 


“M<R2,R3,R4,R5> 


“M<R2,R3,R4 


te 


> 
TFAB,R2 ; Get address of List FAB 


MOVZWL DSCS$W_LENGTH(R3),-(SP) ; Store Length of block to allocate 
MOVB (SP) ,FABSB_FNS (Re) ; Store length of spec in FAB 

PUSHAB FABSL_FNA(R2) ; Stack address to get ol Located block 
PUSHAB 4(SP) : zteck address of ene of block 
CALL #2,G*LIBSGET_VM Allocate memory 

+t (SP) ,aDSCSA A_POINTER(R3), SF ABSL _FNA(R2) ; hand spec in 
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GE TCMD 16-SEP-1984 Oe he hs AX/VMS Macro V04-00 Page 
v04-000 QUALIFIER ACTION ROUTINES -SEP-1984 238: SUM.SRCIGETCMD.MAR; 1 
+ i3 -SBTTL QUALIFIER ACTION ROUTINES 
EB i : This routine is called if the /HEADER qualifier is seen 
EB 243: 
EB 244 HEAD_QUAL: 
00000000‘ EF 68 88 OE 45 BISB2 #SSL_M_HEADER,SUMSGL_FLAGS 
OOIF'CF QO OF 4g MOVB WFA VFC, = ; Set record format to variable 
F 4 W°SUMSAX_OUTPUFAB+FABSB_RFM ; with fixed control record 
OO3F'CF OC 90 F7 rt MOVB #SSLSRHBSZE, - ; Set output file FAB block to 
FC 8k W*SUMSAX_OUTPUFAB+FABSB_FSZ ; write record header buffer 
QOOOO'CF QOOOO'CF YE FC 29 MOVAB W*SUMSAX_RHB, - : and RAB block with record header 
1 3 1 W*SUMSAX-OUTPURAB+RABSL_RHB ; buffer address 
05 01 26 RSB 
196 $8a 
a 4 yf : This routine is called if the /UPDATE qualifier is called 
104 257: 
A 28 3; Inputs: 
0104 60 : 4(ap) Address of scratch dynamic string descriptor 
b104 6¢ UPDA_QUAL : 
0000 Ht 6 -WORD 0 
50 OO1S°CF 9E 0106 64 OVA W*UPDATE_NAME ,RO :Get ASCIC name address 
01 AO OF bioe 65 PUSHAB 1(RO) ;Create descriptor 
7E 60 9A 10€ 66 MOVZBL (RO),-(SP) 
. ms Bp 67 OVL SP,Ri :Save descriptor address 
AC DD 0114 68 USHL 4(AP) :Pass a dynamic descriptor down 
OOOO'CF 9F 0117 69 PUSHAB W*SUMSGL_UPDATES Stack address of Listhead 
51 oD O18 70 USHL Ri zsStack descriptor address 
00000000'GF  9F 138 71 PUSHAB G“CLISGET VALUE sAddress of routine to get value 
Q0000000'GF 04 re 0 ; ie CALLS #4,G*SUMSOPDATE_QUAL Process the List 
128 74 
0128 75 .END 
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banc eee wc ene mwas > 


! Psect synopsis ! 


teen newer e monn nan > 


PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC  USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 444s 3 ( 0.) QO1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SUMSRO_DATA 00000 ( 41.) 8s ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
SUMSCOBE 00000128 ( 299.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
treme nwo coe ame ere omer ao 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 08:8 300-08 88:00 :00.37 
Command processing 111 0:0 2 0:00:01.57 
Pass 192 888838 -69 00:00:10.63 
Symbol table sort 0 0 + 08 8 00:00:00.97 
Pass 2 64 Ba: 0: B36 ee TS 13 
Symbol table output 9 0:00:00.0 00:00:00.3 
Psect synopsis output 2 00:00: 8-08 00:00:00.02 
Cross-reference output 0 Sha oo 00:00:00.00 
Assembler run totals 414 0:00:05.86 00:00:16.53 


The working set Limit was 1200 pages. 

19897 bytes (39 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 356 non-local and 4 local symbols. 
275 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

12 pages of virtuai memory were used to define 11 macros. 


en ee sewer ws ee Beco ewe ene oe t 


Macro Library name Macros defined 


_$255$DUA28: CSUM.OBJJSUM.MLB; 1 2 
$255$DUA28: CSYSLIBISTARLET.MLB;2 6 
TOTALS (all Libraries) 8 
399 GETS were required to define 8 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:GETCMD/OBJ=0BJ$:GETCMD MSRC$:GETCMD/UPDATE=(ENHS:GETCMD) +LIB$:SUM/LIB 
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